home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / LASX.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.0 KB  |  14 lines
  1.  
  2. *MOVE A TO B (DOUBLE VAR) WITH N (CONST) BIT                                    
  3. *LEFT ARITHMETIC SHIFT                                                          
  4. *                                                                               
  5. LASX  $MACRO  A,B,N    MOVE DOUBLE WITH ARITH. SHIFT                            
  6.       LAC  :A:+1,:N:   LOAD LOW, SHIFT LEFT                                     
  7.       SACL :B:+1,0     SAVE IN LOW                                              
  8.       SACH :B:,0       SAVE HIGH OVERFLOW                                       
  9.       LAC  MINUS,:N:   GET MASK                                                 
  10.       NOT                                                                       
  11.       AND  :B:         TAKE SIGNIFICANT BITS                                    
  12.       ADD  :A:,:N:     ADD IN SHIFT HIGH PART                                   
  13.       SACL :B:,0       SAVE HIGH                                                
  14.       $END